﻿Imports BUS
Imports DTO

Public Class frmDSTra

    Private Sub frmDSTra_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        drvDanhSachSach.DataSource = frmDangNhap.dsSachTra
    End Sub

    Private Sub btnHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHuy.Click
        frmDangNhap.dsSachTra = New List(Of PhieuTra_DTO)
    End Sub

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub

    Private Sub btnTra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTra.Click
        PhieuTra_BUS.themPhieuTra(frmDangNhap.dsSachTra)
        frmDangNhap.dsSachTra = New List(Of PhieuTra_DTO)
        drvDanhSachSach.DataSource = frmDangNhap.dsSachTra
        frmTraSach.frmTraSach_Load(sender, e)
        MessageBox.Show("Đã trả!")
    End Sub
End Class